﻿'PROYECTO DE YERAY,SAMUEL,GAIZKA Y ADRIÁN
Imports Negocio
Public Class frmAcceso
    Private Admin As New Cliente("Admin", "admin", "admin@admin.com", "1111111111111111", "12/18") 'El usuario administrador se crea aquí
    'Para entrar como admin: usuario:admin contraseña:admin
    Private contraseña As String

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click

        If txtUsuario.Text = "" Then
            MessageBox.Show("Escribe nombre de usuario")
            Exit Sub
        End If
        If txtContraseña.Text = "" Then
            MessageBox.Show("Escribe la contraseña")
            Exit Sub
        End If
        Dim usuario As New Cliente
        usuario.Nombre = txtUsuario.Text
        usuario.Password = contraseña
        If usuario.Equals(Admin) AndAlso usuario.Password = Admin.Password Then
            frmPrinAdmin.Show()
            Me.Close()
            Exit Sub
        End If
        If Not miGestionClientes.Clientes.Contains(usuario) Then
            MessageBox.Show("Error, no existe el usuario " & usuario.Nombre)
            txtUsuario.Text = ""
            txtUsuario.Focus()
            txtContraseña.Text = ""
            contraseña = ""
            Exit Sub
        End If
        For i As Integer = 0 To miGestionClientes.Clientes.Count - 1
            If miGestionClientes.Clientes(i).Equals(usuario) Then
                If usuario.Password = miGestionClientes.Clientes(i).Password Then
                    miUsuario = miGestionClientes.Clientes(i)
                    frmPrincli.Text = ("Cliente:" & miUsuario.Nombre)
                    frmPrincli.Show()
                    Me.Close()
                    Exit Sub
                End If
            End If
        Next
        MessageBox.Show("Error")
        txtUsuario.Text = ""
        txtUsuario.Focus()
        txtContraseña.Text = ""
        contraseña = ""

    End Sub

    Private Sub btnRegistro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegistro.Click
        frmRegistro.ShowDialog()

    End Sub

    Private Sub frmAcceso_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub



    Private Sub txtContraseña_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtContraseña.KeyPress
        If e.KeyChar = ControlChars.Back Then
            contraseña = contraseña.Substring(0, contraseña.Length - 1)
        Else
            contraseña = contraseña & e.KeyChar
            e.KeyChar = "*"
        End If
    End Sub

    Private Sub txtContraseña_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContraseña.TextChanged

    End Sub
End Class